home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat62 / amitel110 / amitel.install < prev    next >
Text File  |  1994-01-29  |  3KB  |  140 lines
  1. ;
  2. ; $VER: Installation d'AmiTEL v1.00ß (29/01/94)
  3. ;
  4. ;    Installer script pour AmiTEL.
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialisation des messages.
  10.  
  11.     (set Language 16)
  12.  
  13.     (set #WrongKickStart "\nAmiTEL ne fonctionne qu'avec un KickStart >= à 2.04.")
  14.     (set #CopyingReqTools "Copie de ReqTools.library dans LIBS:")
  15.  
  16. ; Message de Bienvenue.
  17.  
  18.     (complete 0)
  19.     (welcome "Bienvenue sur le programme d'installation d'AmiTEL v1.00."
  20.          " Cette installation est réalisée avec le programme"
  21.          " 'Installer' de Commodore pour les ordinateurs Amiga.\n"
  22.     )
  23.  
  24. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  25.  
  26.     (if (< (/ (getversion) 65536) 37)
  27.       (abort #WrongKickStart)
  28.     )
  29.  
  30. ; Copie du fichier exécutable et de la documentation d'AmiTEL.
  31.  
  32.     (set Path.Source
  33.       (tackon
  34.         (askdir
  35.           (prompt "\nSélectionnez le lecteur sur lequel se trouve AmiTEL.\n")
  36.           (help @askdir-help)
  37.           (default (pathonly @icon))
  38.         )
  39.         ""
  40.       )
  41.     )
  42.  
  43.     (set Path.Dest
  44.       (tackon
  45.         (askdir
  46.           (prompt "\nSélectionnez ou créez un répertoire dans lequel vous"
  47.               " voulez installer AmiTEL.\n")
  48.           (help @askdir-help)
  49.           (default "SYS:")
  50.         )
  51.         ""
  52.       )
  53.     )
  54.  
  55.     (copyfiles
  56.       (prompt "\nSélectionnez les fichiers à installer:\n")
  57.       (help @copyfiles-help)
  58.       (source Path.Source)
  59.       (dest   Path.Dest)
  60.       (choices "AmiTEL"
  61.                    "BBTPro")
  62.       (infos)
  63.       (confirm)
  64.     )
  65.  
  66.     (complete 40)
  67.  
  68. ; Copie du fichier AmiTEL.guide.
  69.  
  70.     (if
  71.       (askbool
  72.         (prompt "\nVoulez vous installer la documentation d'AmiTEL ?")
  73.         (help @askbool_help)
  74.         (default 1)
  75.       )
  76.  
  77.       (
  78.         (copyfiles
  79.           (prompt "\nSelectionnez le fichier à installer:\n")
  80.           (help @copyfiles-help)
  81.           (source Path.Source)
  82.           (dest   Path.Dest)
  83.           (choices "AmiTEL.guide")
  84.           (infos)
  85.           (confirm)
  86.         )
  87.       )
  88.     )
  89.  
  90.     (complete 60)
  91.  
  92. ; Copie des fichiers d'exemples ARexx.
  93.  
  94.     (if
  95.       (askbool
  96.         (prompt "\nVoulez vous installer les fichiers d'exemples ARexx ?")
  97.         (help @askbool_help)
  98.         (default 1)
  99.       )
  100.  
  101.       (
  102.         (copyfiles
  103.           (prompt "\nSelectionnez le fichier à installer:\n")
  104.           (help @copyfiles-help)
  105.           (source "Rexx")
  106.           (dest   "REXX:")
  107.           (pattern "#?.rexx")
  108.           (confirm)
  109.         )
  110.       )
  111.     )
  112.  
  113.     (complete 80)
  114.  
  115. ; Copie de la librairie ReqTools.
  116.  
  117.     (message
  118.       "\n"
  119.       "Pour fonctionner, AmiTEL utilise la ReqTools.library.\n"
  120.       "\n"
  121.       "Avant de l'installer, je vais vérifier que vous n'avez "
  122.       "pas une version plus récente de ReqTools.library.\n"
  123.       "Si c'est le cas, je ne l'installerai pas.\n"
  124.     )
  125.  
  126.     (copylib
  127.       (prompt "\n" #CopyingReqTools)
  128.       (help @copylib-help)
  129.       (source "Libs/reqtools.library")
  130.       (dest "LIBS:")
  131.       (confirm)
  132.     )
  133.  
  134.     (complete 100)
  135.  
  136. ; End of Program
  137.  
  138.     (set @default_dest Path.Dest)
  139.     (exit)
  140.